home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
A-Monthly Disks
/
(c)aak.d64
/
music menu
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-04
|
3KB
|
72 lines
85 LC=646:SR=53281:BD=53280:UC=53272:IFPEEK(764)THEN700
88 POKESR,1:POKEBD,3:POKELC,2
90 POKEUC,21:PRINT"[147]":PRINT"S U N D A Y E V E N I N G S O N G S
92 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
93 POKELC,6:PRINTTAB(19)"[219]
95 [153][163]9)"PROGRAMMED BY RELIGIOUS
100 PRINTTAB(19)"OF":PRINTTAB(5)"THE ORDER OF THE MOTHER OF GOD
105 [151]LC,10:[153][163]8)"MUSIC (INTERRUPT-DRIVEN)
107 PRINTTAB(14)"BY MEANS OF:
108 [151]LC,5:[153]"MUSIC ASSEMBLER 64(C)NICK SULLIVAN
110 PRINTTAB(11)"C/O THE TRANSACTOR
115 [153]"500 STEELES AVE, MILTON, ONT. L9T 3P7":SN[178]1
118 [129]AA[178]1[164]2000:[130]
120 [151]646,11:[153][163]7)"PRESS SPACEBAR TO CONTINUE":[151]198,0
125 KY[178][194](197)
130 [139]KY[178]60[167][145]SN[137]200,500,700
135 [139]KY[179][177]60[167]125
200 [153]"LOAD":[151]LC,2
205 [153][163]12)"ALSO AVAILABLE:":[151]LC,6:[129]AA[178]1[164]1500:[130]
210 [151]UC,23:[153]"LOAD":[153][163]3)"(null)CLOSEVALCLOSE CLOSE(null)CLOSERIGHT$CLOSE(null) CHR$ (null)CLOSE(null)CLOSE(null)CLOSECLOSEASCCLOSEATNCLOSERIGHT$CLOSE(null) LEFT$
215 PRINT"[193] [195]OURSE OF [205]USICAL [201]NSTRUCTION
220 [153][163]6)"IN PEEKASIC LENHRISTIAN STR$OCTRINE
230 PRINTTAB(19)"+
235 [151]LC,9:[153]"(null)WO STR$ISKS-(null)WELVE LENHAPTERS-(null)WELVE ATNIRS
240 PRINTTAB(6)"[198]OR [195]-64 - [200]OME OR [195]LASSROOM
245 [151]LC,5:[153][163]2)"VALACH LENHAPTER HAS: 1) 3 TO 11 VERSES;
250 PRINTTAB(2)"2) [204]EXICONS EXPLAINING WORDS & TERMS;
255 [153][163]2)"3) (null)UESTIONNAIRE/ATN HIGH SCORE EARNS:
260 PRINTTAB(2)"4) [214]IEW OF [200]IGH-[210]ESOLUTION [208]ICTURE.
270 [151]LC,6:[153]"LENLASSROOM PROVED/(null)OUNGSTERS FROM 8-16.
272 PRINTTAB(10)"-------------------
275 [153]"ATNDULTS, TOO, HAVE SHOWN ENTHUSIASM
280 PRINT"[198]OR THIS COURSE IN BASIC DOCTRINE.":SN=2:FORAA=1TO2000:NEXT
285 POKE646,11:PRINTTAB(7)"[208][210][197][211][211][160][211][208][193][195][197][194][193][210][160][212][207][160][195][207][206][212][201][206][213][197]":POKE198,0:GOTO125
500 PRINT"[147]":POKE646,6:PRINTTAB(16)"[193]DDRESS:
505 [153][163]8)"(null)ONASTERY OF THE ATNPOSTLES
510 PRINT"[198]RONTIER [210]OAD, [195]HURUBUSCO, [206].[217]. 12923
520 [153][163]9)"$27.00/ATNM - $35.00/LENAN
530 FORAA=1TO5000:NEXT
600 PRINT"[147]":POKE53272,23:POKE646,11:PRINTTAB(14)"[208][204][197][193][211][197][160][206][207][212][197]:
610 [153][163]5)"RIGHT$F SOME PART OF THIS PROGRAM
615 PRINTTAB(5)"DOES NOT RUN PROPERLY, TRY RE-
620 [153][163]5)"SETTING YOUR COMPUTER (TURN IT
625 PRINTTAB(5)"OFF AND ON AGAIN). [208]ROBABLY
630 [153][163]5)"YOU HAVE BEEN RUNNING PRO-
635 PRINTTAB(5)"GRAMS WHICH USE MEMORY LOCA-
640 [153][163]5)"TIONS CONFLICTING WITH THOSE
645 PRINTTAB(5)"USED BY THIS PROGRAM.":PRINTTAB(15)"[212]HANK YOU!":SN=3
650 FORAA=1TO2000:NEXT:PRINTTAB(7)"[208][210][197][211][211][160][211][208][193][195][197][194][193][210][160][212][207][160][195][207][206][212][201][206][213][197]":POKE198,0
655 GOTO125
700 PRINT"[147]":POKE53281,1:POKE646,6:POKE53280,12:POKE53272,21
710 PRINTTAB(11)"SUNDAY EVENING SONGS
720 [153][163]11)"TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO
730 PRINT"(1) PUER NOBIS NASCITUR":PRINT"(CANON FOR THREE VOICES)
740 [153]"(2) O SACRED HEAD (HYMN FOR LENT)
750 PRINT"(3) THE FOURTH COMMANDMENT
760 [153][163]18)"+ + +
770 PRINT"YOUR CHOICE:":PRINT"[145]";:PRINTTAB(16);
780 POKE198,0:POKE204,0:POKE207,0
790 GETA$:IFA$=""THEN790
800 A=VAL(A$)
810 IFA>3ORA<1THEN790
820 PRINT"[157]"A:POKE207,0:POKE204,1
830 IFA=1THENPRINTTAB(7)"PUER NOBIS NASCITUR..LOADING"
840 IFA=2THENPRINTTAB(8)"O SACRED HEAD...LOADING
850 [139]A[178]3[167][153]"THE FOURTH COMMANDMENT...LOADING
860 POKE764,1:ONAGOTO870,880,890
870 PRINTCHR$(5)"";"LOAD";CHR$(34);"PUER NOBIS";CHR$(34);",8":GOTO900
880 PRINTCHR$(5)"";"LOAD";CHR$(34);"O SACRED HEAD";CHR$(34);",8":GOTO900
890 PRINTCHR$(5)"";"LOAD";CHR$(34);"4TH COM";CHR$(34);",8"
900 PRINT"RUN":POKE198,3:POKE631,19:POKE632,13:POKE633,13